home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 90 / 090.d81 / alien science (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  35KB  |  1,014 lines
  1. 20 dv=peek(186):ifdv<8thendv=8
  2. 30 poke53280,.:poke53281,.:print"[147]"chr$(142)"":gosub4390
  3. 50 rem  goto70
  4. 60 sys57812"animate.o",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  5. 70 sys57812"asfonts",dv,0:poke780,0:poke781,0:poke782,224:sys65493
  6. 120 :
  7. 130 poke56576,(peek(56576)and252)or.
  8. 140 poke53272,(peek(53272)and 15)or48
  9. 150 poke648,204
  10. 160 poke53272,(peek(53272)and240)or14
  11. 170 print"[147]":sys 49152
  12. 180 dv=peek(186):ifdv<8thendv=8
  13. 181 dimdp(91)
  14. 182 fori=0to90:dp(i)=0:next
  15. 185 c$(1)="astronomy":c$(2)="geology":c$(3)="physics"
  16. 190 c$(4)="paleontology":c$(5)="archeology":c$(6)="oceanology"
  17. 195 qp$="                                       "
  18. 197 qm$=" [174][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][186]"
  19. 200 na$="  alien science quiz  "
  20. 210 tb$="[189][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][146][190]"
  21. 220 fx$="[159]    [174][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][173][186]"
  22. 230 ed$="[155]  [189][168][168][168][168][168][168][168][168][146]                    [176][176][176][176][176][176][146][190]"
  23. 240 bb$="[189][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][146][190]"
  24. 250 fori=217to242:pokei,peek(i)or128:nexti:print"[147]":pokean+6,4
  25. 260 poke53280,.:poke53281,.
  26. 270 so=54272:form=sotoso+23:pokem,0:next:pokeso+24,15
  27. 280 poke214,1:print:print"[155] "tb$
  28. 290 printed$
  29. 300 print"[155] "bb$
  30. 310 poke214,2:print:printtab(9);
  31. 320 forj=1tolen(na$):pokeso+1,64
  32. 330 print" [157]";:goto340
  33. 340 print" [157]";
  34. 350 pokeso+6,240:pokeso+4,129:print"[150]";
  35. 360 printmid$(na$,j,1);:pokeso+6,0:pokeso+4,0:nextj:pokeso+24,0
  36. 370 poke214,5:print:print"[154]    what an incredible achievement"
  37. 380 print"  of fantasy is the scientific mind!"
  38. 390 print"[158]            -e.l. doctorow[158]-"
  39. 400 printfx$
  40. 410 print"[153]     a superstition is a premature"
  41. 420 print"  explanation that overstays its time."
  42. 430 print"[158]             -george iles[158]-"
  43. 440 printtab(14)"[158]press a key"
  44. 445 poke198,0
  45. 450 geta$:ifa$=""then450
  46. 460 goto880
  47. 470 z=0:sr=0:pb=0:r=0
  48. 480 i=int(rnd(0)*15)+(he-1)*15+1
  49. 550 ifdp(i)then480
  50. 560 dp(i)=1:j=(i-1)*7+1:fork=1toj
  51. 570 readqu$(0):next:readqu$(1),an$,rp$(0),rp$(1),rp$(2),rp$(3)
  52. 580 print"[147]":poke53280,.:poke53281,.
  53. 590 onhegosub1970,2020,2080,2130,2190,2230
  54. 600 poke214,1:print:printtab(6)"[159][174][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][176][146][159][186]"
  55. 610 poke214,7:print:print"[150]"bb$
  56. 620 poke214,10:print:print"[150]"tb$
  57. 630 poke214,12:print:print"[159]       answer to statement below"
  58. 640 poke214,8:print:print"[187] [158]"sj$;"'s[153] score ";tab(28)"[150]missed   [188]"
  59. 650 poke214,8:print:printtab(18)"[154] right"
  60. 660 poke214,9:print:print"[187]       "sr;tab(19)r;tab(30)z
  61. 670 poke214,9:print:printtab(37)"[188]"
  62. 680 poke214,3:print:printtab(5)"[129] answer t[129] or f[129] or q[129] to quit"
  63. 690 poke214,11:print:printtab(9)"[154] only [158]    [157][157][157][157][157]";20-r;"[154][157] left to go!"
  64. 700 poke214,5:print:print"[153]"qu$(0):printqu$(1):gosub3330
  65. 710 geth$:ifh$<>"t"andh$<>"f"andh$<>"q"then710
  66. 720 ifh$=an$thensr=sr+500:r=r+1:gosub2540:gosub3250
  67. 730 ifh$="q"then3650
  68. 740 ifh$<>an$thenz=z+1:sr=sr-1000:gosub2760:gosub3170
  69. 770 poke214,13:print:printtab(14)"[150][174][173][173] ";an$;" [150][173][173][186][153]"
  70. 780 fori=0to3:printrp$(i):next
  71. 790 poke214,18:print:print"  press any key for another question ":poke198,.
  72. 800 geth$:ifh$=""then800
  73. 810 ifh$="q"then3650
  74. 820 ifz=9thengosub2480
  75. 830 ifz=10then2290
  76. 840 restore
  77. 850 ifr<20then1400
  78. 860 goto2980
  79. 870 goto1400
  80. 880 print"[147]":poke53280,.:poke53281,1
  81. 890 i=rnd(-ti)
  82. 900 gosub3400:poke53280,.:poke53281,.
  83. 910 poke214,2:print:printtab(9)"[150]:computer interlock[150]:":gosub4310
  84. 920 fort=1to450:next
  85. 930 printtab(2)"[158]your computer's in quirkon control!":gosub4310
  86. 940 fort=1to1200:next
  87. 950 poke214,8:print:print"[153]   we need your name for our records."
  88. 960 printtab(17)"------[145][145]"
  89. 970 print"[159]   please enter: ";:gosub4310:l9%=6:gosub4160:sj$=q9$
  90. 980 gosub4310:print"[147]"
  91. 1170 print"[147]":poke53280,0:poke53281,0:poke49158,4:gosub3500
  92. 1180 print"___________________^^^^^^^^^^^^^^^^^^^"
  93. 1190 print"   the quirkons challenge [158]"sj$"[146] to"
  94. 1200 printtab(11)"[159]a knowledge quiz!"
  95. 1210 print"___________________^^^^^^^^^^^^^^^^^^^"
  96. 1220 print"[153]  the material deals with these six
  97. 1230 [153]"print  categories of your earth sciences."
  98. 1240 [153]"   1.list astronomy       4.list paleontolgy"
  99. 1250 [153]"   2.list geology         5.list archeology"
  100. 1260 [153]"   3.list physics         6.list oceanology"
  101. 1270 [153]"open    this will be a true/false test!"
  102. 1280 [153]qm$
  103. 1290 [153]"sys  you may choose the category of the
  104. 1300 print"  statement by pressing a number from
  105. 1310 [153]"  1 to 6.
  106. 1330 printqm$
  107. 1360 print"         press any key for more
  108. 1370 [161]r$:[139]r$[178]""[167]1370
  109. 1380 [141]4310:[141]1770
  110. 1390 [141]4310
  111. 1400 [151]49158,5:[153]"load":[151]53280,0:[151]53281,0
  112. 1420 [151]214,0:[153]:[153][163]7)"cont^///////////////////////sqr"
  113. 1430 [153][163]10)"printand quiz categoriesprint and"
  114. 1440 [153][163]7)"cont^///////////////////////sqr list"
  115. 1450 [151]214,4:[153]:[153][163]3)"1. sys"c$(1)"cont-the universe
  116. 1460 printtab(3)"2. [158]"c$(2)"[154]-[153]the earth's structure
  117. 1470 [153][163]3)"3. sys"c$(3)"cont-listnatural laws
  118. 1480 printtab(3)"4. [158]"c$(4)"[154]-[150]past organisms
  119. 1490 [153][163]3)"5. sys"c$(5)"cont-clrhuman's past
  120. 1500 printtab(3)"6. [158]"c$(6)"[154]-[154]earth's oceans
  121. 1510 [153][163]3)"q. sysquit"
  122. 1515 [153]qm$
  123. 1520 [153][163]3)"open test subject list";sj$"'sopen score";sr
  124. 1530 [153]"open    right:"r;[163]25)"openwrong:"z
  125. 1550 [139]s1[177]15[167]kk[178]4:[141]4260
  126. 1560 [139]s2[177]15[167]kk[178]6:[141]4260
  127. 1570 [139]s3[177]15[167]kk[178]8:[141]4260
  128. 1580 [139]s4[177]15[167]kk[178]10:[141]4260
  129. 1590 [139]s5[177]15[167]kk[178]12:[141]4260
  130. 1600 [139]s6[177]15[167]kk[178]14:[141]4260
  131. 1610 [161]z$:[139]z$[179]"1"[176]z$[177]"6"[175]z$[179][177]"q"[167]1610
  132. 1620 [141]4310
  133. 1630 [139]z$[178]"q"[167]3650
  134. 1640 [139]z$[178]"1"[167]he[178]1:s1[178]s1[170]1
  135. 1650 [139]z$[178]"2"[167]he[178]2:s2[178]s2[170]1
  136. 1660 [139]z$[178]"3"[167]he[178]3:s3[178]s3[170]1
  137. 1670 [139]z$[178]"4"[167]he[178]4:s4[178]s4[170]1
  138. 1680 [139]z$[178]"5"[167]he[178]5:s5[178]s5[170]1
  139. 1690 [139]z$[178]"6"[167]he[178]6:s6[178]s6[170]1
  140. 1700 [139]s1[177]15[175]z$[178]"1"[167]1550
  141. 1710 [139]s2[177]15[175]z$[178]"2"[167]1550
  142. 1720 [139]s3[177]15[175]z$[178]"3"[167]1550
  143. 1730 [139]s4[177]15[175]z$[178]"4"[167]1550
  144. 1740 [139]s5[177]15[175]z$[178]"5"[167]1550
  145. 1750 [139]s6[177]15[175]z$[178]"6"[167]1550
  146. 1760 [139]pb[177][171]1[167]480
  147. 1770 [153]"load":[151]49158,4
  148. 1780 [153][163]9)"open";sj$"'s instructions."
  149. 1785 [153]qm$
  150. 1790 [153]"sys everything depends on your knowledge"
  151. 1800 [153]" of science.  there are 15 statements
  152. 1810 print" in each of 6 categories about your
  153. 1820 [153]" planet and its universe.  you get 500
  154. 1830 print" points for every correct answer but
  155. 1840 [153]" you lose 1000 points for every wrong
  156. 1850 print" answer.
  157. 1860 [153]" you must answer 20 true/false
  158. 1870 print" questions correctly to pass.  if you
  159. 1880 [153]" miss 10 first you will fail your
  160. 1890 print" planet in the eyes of us quirkons.
  161. 1910 [153]"         good luck  "sj$" "
  162. 1920 [153]" you will be warned when 9 are missed!"
  163. 1925 [153]qm$
  164. 1930 [153]"       press any key to take test
  165. 1940 getr$:ifr$=""then1940
  166. 1950 return
  167. 1970 print"[147]"tab(10)"[158]category[150]-";c$(1):poke49158,10
  168. 1980 poke214,20:print:print" [221][223][221][223][221][223][158][255][221][223][223][221][221][223][223][221][221][223][154][255][223][223][221][223][221][153][167][255][223][221][223][